home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / fmodla13.zip / PATHS.DEF < prev    next >
Text File  |  1992-01-29  |  607b  |  23 lines
  1. DEFINITION MODULE Paths;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5.  
  6. PROCEDURE Locate( fileName :ARRAY OF CHAR; envPath :ARRAY OF CHAR;
  7.                   VAR PathAndName :ARRAY OF CHAR; VAR found :BOOLEAN );
  8. (*
  9.     following the PATH specified in the envPath evironment string,
  10.     try to locate the file fileName.
  11.  
  12.     If the file is located, its complete path name is returned in
  13.     PathAndName.
  14.  
  15.     Example:
  16.  
  17.         Locate( "M2ED.CFG", "PATH", pathName, found );
  18.         IF found THEN
  19.             Lookup( f, pathName );
  20.             ...
  21. *)
  22.  
  23. END Paths.